﻿Imports System.Data
Imports System.Data.SqlClient

Public Class MonHocBUS
    Private qlMHDAO As MonHocDAO
    Public Sub New()
        qlMHDAO = New MonHocDAO
    End Sub
    Public Shared Function GetData() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocDAO.GetData()
        Return dt
    End Function
    Public Shared Sub ThemMH(ByVal MonHoc As MonHocDTO)
        MonHocDAO.ThemMH(MonHoc)
    End Sub
    Public Shared Sub UpDateMH(ByVal MonHoc As MonHocDTO)
        MonHocDAO.UpDateMH(MonHoc)
    End Sub
    Public Shared Sub DeleteMH(ByVal MonHoc As MonHocDTO)
        MonHocDAO.DeleteMH(MonHoc)
    End Sub

    Public Shared Sub CapNhat(ByVal bangMonHoc As DataTable)
        MonHocDAO.CapNhat(bangMonHoc)
    End Sub
    Public Shared Function LayDSMonHoc() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocDAO.LayDSMonHoc()
        Return dt
    End Function
    Public Shared Function LayCauTrucBang() As DataTable
        Dim dt As DataTable = New DataTable()
        dt = MonHocDAO.LayCauTrucBang()
        Return dt
    End Function
End Class
